home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1996 June / MACPOWER-1996-06.ISO.7z / MACPOWER-1996-06.ISO / MacPowerオリジナル / SILICON MAGIC / リスト / リスト３ < prev    next >
Text File  |  1996-04-12  |  457b  |  15 lines
  1. リスト３　名前符号への変換ルーチン
  2.  
  3. LOCAL FN NamedEntity$(c$)                         'change some chars into named entities
  4.   SELECT ASC(c$)
  5.     CASE 34                                       'double quote
  6.       c$="""
  7.     CASE 38                                       '&
  8.       c$="&"
  9.     CASE 60                                       '<
  10.       c$="<"
  11.     CASE 62                                       '>
  12.       c$=">"
  13.   END SELECT
  14. END FN = c$
  15.